home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / mlpmodul.sit / MacLogimoPlus Documentation / DEF3 Files / SFpackage.DEF / SFpackage.DEF
Encoding:
Modula Definition  |  1990-06-14  |  2.6 KB  |  66 lines  |  [TEXT/PMED]
  1. DEFINITION MODULE SFpackage;    (* Franz Kronseder 17.12.84       *)
  2.                                 (* last modification 9.11.86 TM *)
  3.  
  4. FROM SYSTEM  IMPORT ADDRESS, WORD;
  5. FROM FileMgr IMPORT OSType;
  6. IMPORT MacBase;
  7.  
  8. EXPORT QUALIFIED  putDlgID,getDlgID,
  9.                   SFReply,ProcPtr,SFTypeList,
  10.                   SFPutFile,SFPPutFile,SFGetFile,SFPGetFile,
  11.                   putSave,putCancel,putEject,putDrive,putName,
  12.                   getOpen,getCancel,getEject,getDrive,getScroll,getNmList;
  13.  
  14. (* constants for Standard File package *)
  15.   CONST
  16.   putDlgID = -3999;    (*   SFPutFile dialog template ID} *)
  17.   getDlgID = -4000;    (*   SFGetFile dialog template ID} *)
  18.  
  19.   putSave = 1;         (*   save button} *)
  20.   putCancel = 2;       (*   cancel button} *)
  21.   putEject = 5;        (*   eject button} *)
  22.   putDrive = 6;        (*   drive button} *)
  23.   putName = 7;         (*   editTExt item for file name} *)
  24.  
  25.   getOpen = 1;         (*   open button} *)
  26.   getCancel = 3;       (*  cancel button} *)
  27.   getEject = 5;        (*   eject button} *)
  28.   getDrive = 6;        (*   drive button} *)
  29.   getNmList = 7;       (*   userItem for file name list} *)
  30.   getScroll = 8;        (*  userItem for scroll bar} *)
  31.  
  32. TYPE
  33.   Point  = MacBase.Point;
  34.   StrPtr = MacBase.StrPtr; (* pointer to a Pascal String *)
  35.  
  36.   ProcPtr  = ADDRESS;
  37.   SFTypeList = ARRAY[0..3] OF OSType;
  38.   SFReply = RECORD
  39.               good:    BOOLEAN;  (*   ignore command if FALSE *)
  40.               copy:    BOOLEAN;  (*   not used                *)
  41.               fType:   OSType;   (*   file type or not used}  *)
  42.               vRefNum: INTEGER;  (*   volume reference number *)
  43.               version: INTEGER;  (*   file's version number   *)
  44.               fName:   ARRAY[0..63] OF CHAR; (* file name, a pascal string *)
  45.             END; (* SFReply *)
  46.  
  47. PROCEDURE SFPutFile(left,top:INTEGER; prompt:StrPtr;origName:StrPtr;
  48.                     dlgHook:ProcPtr; VAR reply:SFReply);
  49.  
  50. PROCEDURE SFPPutFile(left,top:INTEGER; prompt:StrPtr; origName:StrPtr;
  51.                      dlgHook: ProcPtr; VAR reply: SFReply; dlgID: INTEGER;
  52.                      filterProc: ProcPtr);
  53.  
  54. PROCEDURE SFGetFile(left,top:INTEGER; prompt: StrPtr; fileFilter: ProcPtr;
  55.                     numTypes:INTEGER; VAR typeList: SFTypeList;
  56.                     dlgHook: ProcPtr; VAR    reply: SFReply);
  57.  
  58. PROCEDURE SFPGetFile(left,top:INTEGER; prompt:StrPtr;fileFilter: ProcPtr;
  59.                      numTypes: INTEGER;VAR typeList: SFTypeList;
  60.                      dlgHook: ProcPtr; VAR reply: SFReply;
  61.                      dlgID: INTEGER;  filterProc: ProcPtr);
  62. (* note: left,top:INTEGER replaced the original Pascal value parameter *)
  63. (* where:point; *)
  64.  
  65. END SFpackage.
  66.